home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 November / macformat-018.iso / Comms Spectacular / Mansion9Install#1 Folder / Mansion BBS ƒ / Mansion Data / Scripts / Logon < prev    next >
Encoding:
Text File  |  1992-11-22  |  1.8 KB  |  120 lines  |  [TEXT/QED1]
  1. ; Logon Script for Mansion
  2. ;
  3. ;  Parts written by Mark Toland
  4. ;
  5. ;  Updated by James Podlasek
  6. ;
  7. ; Last modification 
  8. ;
  9. ; 8/30/92
  10. ;
  11. ;
  12. ;
  13. ;
  14. ;
  15. ;
  16. NETWORKTIMECHECK
  17. IFV &0,>,0
  18.     DISPLAY HD 60:Mansion BBS ƒ:MANSION DATA:TEXT:NET EVENT WARNING
  19. ENDIF
  20. MOVE @LIMIT,&250
  21. LOADUSERINFO
  22. LIMIT &250
  23. MOVE 3,&59
  24. SPACES &59
  25. MOVE 1,&50
  26. SPACES &50
  27. MOVE @NIL,&200
  28. PRINT
  29. PRINT Entering The BBS.
  30. PRINT
  31. PRINT
  32. PRINT
  33. DISPLAY HD 60:Mansion BBS ƒ:Mansion Data:Misc Data:LogonMessage
  34. PRINT
  35. PRINT
  36. DRAW Press RETURN to continue :
  37. INPUT 1,&40
  38. PRINT
  39. PRINT
  40. PRINT
  41. MOVE * Welcome,&1
  42. CONCAT &1,&50
  43. CONCAT &1,&280
  44. IF &281,<>,&280
  45.     CONCAT &1,&50
  46.     MOVE aka,&30
  47.     CONCAT &1,&30
  48.     CONCAT &1,&50
  49.     CONCAT &1,&281
  50. ENDIF
  51. DRAW &1
  52. DRAW @COMMA
  53. MOVE  - User ID # ,&2
  54. MOVE @USERID,&4
  55. CONCAT &2,&4
  56. DRAW &2
  57. PRINT .
  58. PRINT --------
  59. DRAW * Your card color.......
  60. PRINT @CARD
  61. DRAW * Number of calls made..
  62. PRINT &259
  63. DRAW * Minutes spent online..
  64. PRINT &277
  65. DRAW * The last date called..
  66. PRINT &265
  67. DRAW * Files downloaded......
  68. PRINT &275
  69. DRAW * Files uploaded........
  70. PRINT &278
  71. DRAW * Messages Posted.......
  72. PRINT &276
  73. IF &282,=,0
  74.     PRINT * FastKeys are turned OFF.
  75.     PRINT * You may turn them on via the Utilities Menu
  76. ENDIF
  77. IF &282,=,1
  78.     PRINT * FastKeys are turned ON.
  79. ENDIF
  80. PRINT --------
  81. OPEN HD 60:Mansion BBS ƒ:MANSION DATA:CALLS
  82. READ &156
  83. CLOSE
  84. DRAW ** You are caller #
  85. PRINT &156
  86. PRINT --------
  87. IFV &256,>,80
  88.     PRINT
  89.     PRINT ** High Access / Contributor Status **
  90. ENDIF
  91. /BEGIN
  92. PRINT
  93. /ENTRY
  94. PRINT
  95. PRINT 
  96. PRINT Checking for any personal Electronic mail...
  97. MAIL
  98. IFV &0,<,1
  99.     PRINT
  100.     DRAW Sorry no Email at this time :(     
  101.     PRINT
  102.     FORWARD /GETOUT
  103. ENDIF
  104. DRAW You have
  105. DRAW &50
  106. DRAW &0
  107. DRAW &50
  108. DRAW letter(s) in Email waiting.
  109. PRINT
  110. PRINT
  111. DRAW Would you like to read your mail now?  
  112. INPUT 1,&2
  113. IF &2,<>,Y
  114.     FORWARD /GETOUT
  115. ENDIF
  116. PRINT
  117. COMMANDR 30,0
  118. /GETOUT
  119. END
  120.